home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / jm_ni_13.zip / LAST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-03  |  2KB  |  216 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     Declare  Procedure PROC001()
  29.     Declare  Procedure PROC002()
  30.     Declare  Procedure PROC003()
  31.     Declare  Procedure PROC004()
  32.     Declare  Procedure PROC005()
  33.     Declare  Procedure PROC006()
  34.     Declare  Procedure PROC007()
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     PROC001()
  39.     PROC002()
  40.     PROC003()
  41.     End
  42.  
  43. ;------------------------------------------------------------------------------
  44.  
  45.     Procedure PROC001()
  46.  
  47.     StartDisp 2
  48.     Print "@QOFF@"
  49.     If (Exist(PPEPath() + "NAME.CNF")) Then
  50.         INTEGER003 = ReadLine(PPEPath() + "NAME.CNF", 1)
  51.     Else
  52.         INTEGER003 = 1
  53.     Endif
  54.     STRING003 = "@X0EEnter Your Real last Name?"
  55.     If (Exist(PPEPath() + "PROMPTS" + LangExt())) Then
  56.         STRING003 = ReadLine(PPEPath() + "PROMPTS" + LangExt(), 2)
  57.     Else
  58.         STRING003 = ReadLine(PPEPath() + "PROMPTS" + "", 2)
  59.     Endif
  60.     If (Exist(PPEPath() + PPEName())) DispFile PPEPath() + PPEName() , 1 + 4
  61.     Print STRING003 + Chr(32)
  62.  
  63.     EndProc
  64.  
  65.  
  66. ;------------------------------------------------------------------------------
  67.  
  68.     Procedure PROC002()
  69.  
  70.     :LABEL001
  71.     If (BOOLEAN001) Goto LABEL003
  72.     BOOLEAN002 = 0
  73.     BOOLEAN003 = 0
  74.     STRING002 = Upper(Inkey())
  75.     If (STRING002 == "") Delay INTEGER003
  76.     If (((STRING002 >= Chr(32)) && (STRING002 <= Chr(126))) && (Len(STRING001) < 40)) PROC007()
  77.     If ((STRING002 == Chr(8)) && (Len(STRING001) > 0)) PROC006()
  78.     If (STRING002 == Chr(13)) PROC005()
  79.     If (STRING002 == Chr(27)) PROC004()
  80.     If (BOOLEAN002) Then
  81.         If (BOOLEAN003) Then
  82.             Print Upper(STRING002) + Chr(32), Chr(8)
  83.             Goto LABEL002
  84.         Endif
  85.         Print Lower(STRING002) + Chr(32), Chr(8)
  86.     Endif
  87.     :LABEL002
  88.     Goto LABEL001
  89.     :LABEL003
  90.  
  91.     EndProc
  92.  
  93.  
  94. ;------------------------------------------------------------------------------
  95.  
  96.     Procedure PROC004()
  97.  
  98.     STRING001 = ""
  99.     For INTEGER002 = 1 To INTEGER001
  100.         Backup 1
  101.         Print Chr(32)
  102.         Backup 1
  103.     Next
  104.     INTEGER001 = 0
  105.  
  106.     EndProc
  107.  
  108.  
  109. ;------------------------------------------------------------------------------
  110.  
  111.     Procedure PROC006()
  112.  
  113.     STRING001 = Left(STRING001, Len(STRING001) - 1)
  114.     Dec INTEGER001
  115.     BOOLEAN002 = 1
  116.  
  117.     EndProc
  118.  
  119.  
  120. ;------------------------------------------------------------------------------
  121.  
  122.     Procedure PROC003()
  123.  
  124.     PrintLn 
  125.     KbdStuff STRING001
  126.  
  127.     EndProc
  128.  
  129.  
  130. ;------------------------------------------------------------------------------
  131.  
  132.     Procedure PROC005()
  133.  
  134.     STRING001 = STRING001 + STRING002
  135.     BOOLEAN001 = 1
  136.  
  137.     EndProc
  138.  
  139.  
  140. ;------------------------------------------------------------------------------
  141.  
  142.     Procedure PROC007()
  143.  
  144.     STRING001 = STRING001 + STRING002
  145.     Inc INTEGER001
  146.     If (Right(Left(STRING001, Len(STRING001) - 1), 1) == Chr(32)) BOOLEAN003 = 1
  147.     If (INTEGER001 == 1) BOOLEAN003 = 1
  148.     BOOLEAN002 = 1
  149.  
  150.     EndProc
  151.  
  152.  
  153. ;------------------------------------------------------------------------------
  154. ;
  155. ; Usage report (before postprocessing)
  156. ;
  157. ; ■ Statements used :
  158. ;
  159. ;    1       End
  160. ;    12      Goto 
  161. ;    19      Let 
  162. ;    5       Print 
  163. ;    1       PrintLn 
  164. ;    14      If 
  165. ;    1       DispFile 
  166. ;    1       StartDisp 
  167. ;    1       Delay 
  168. ;    2       Inc 
  169. ;    1       Dec 
  170. ;    1       KbdStuff 
  171. ;    2       Backup 
  172. ;    7       EndProc
  173. ;
  174. ;
  175. ; ■ Functions used :
  176. ;
  177. ;    16      +
  178. ;    2       -
  179. ;    6       ==
  180. ;    2       <
  181. ;    2       <=
  182. ;    1       >
  183. ;    3       >=
  184. ;    6       !
  185. ;    5       &&
  186. ;    1       ||
  187. ;    4       Len(
  188. ;    1       Lower()
  189. ;    2       Upper()
  190. ;    2       Left()
  191. ;    1       Right()
  192. ;    12      Chr()
  193. ;    1       Inkey()
  194. ;    7       PPEPath()
  195. ;    3       ReadLine()
  196. ;    3       Exist()
  197. ;    2       LangExt()
  198. ;    2       PPEName()
  199. ;
  200. ;------------------------------------------------------------------------------
  201. ;
  202. ; Analysis flags : No flag
  203. ;
  204. ;------------------------------------------------------------------------------
  205. ;
  206. ; Postprocessing report
  207. ;
  208. ;    1       For/Next
  209. ;    0       While/EndWhile
  210. ;    4       If/Then or If/Then/Else
  211. ;    0       Select Case
  212. ;
  213. ;------------------------------------------------------------------------------
  214. ;                 AEGiS Corp - Break the routines, code against the machines!
  215. ;------------------------------------------------------------------------------
  216.